home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 20 / AMIGAplus Sonderheft 20 (1999)(ICP)(DE)[!].iso / Vollversion / Archive / Sword©01 < prev    next >
Text File  |  1999-01-01  |  2KB  |  63 lines
  1. ; **** DMS-Entpackerskript der Amiga-Future-CD-ROM © Cord Hagen ****
  2.  
  3. ASSIGN DMSSOURCE: "" ADD
  4. ALIAS BLACK "ECHO *"*E[>1m*E[30;41m*E[0;0H*E[J""
  5. BLACK
  6. ASSIGN C: AmigaFuture©20:C ADD ; AssRem-onEnd
  7. ECHO "*n Dieses DMS-Archiv wird nun auf eine Diskette entpackt !"
  8. ECHO " Bitte entsprechend der Anzahl an DMS-Archiven in diesem Ordner"
  9. ECHO " Disketten bereithalten !   -    Drücken Sie bitte die linke Maustaste !"
  10. CURSOR OFF
  11. LMB
  12. ECHO ""
  13. WAIT 1
  14. ECHO ""
  15. WAIT 1
  16. ECHO ""
  17. WAIT 1
  18. ECHO ""
  19. BLACK
  20. ECHO "*n ACHTUNG ! Alle Daten auf einer Diskette, auf die ein DMS-Archiv"
  21. ECHO " entpackt wird, gehen verloren !"
  22. ECHO " Auf welches Diskettenlaufwerk soll entpackt werden ?"
  23. SETENV AFCDCHK=DF0:
  24. REQUESTCHOICE >ENV:AFCDCHK TITLE "Future © DMS-Entpacker""Auf welches Diskettenlaufwerk soll*ndas DMS-Archiv entpackt werden ?" DF0: DF1: Abbrechen
  25. IF $AFCDCHK EQ 0
  26.  SKIP ABBRUCH
  27. ENDIF
  28. IF $AFCDCHK EQ 1
  29.  SETENV AFCDCHK=DF0:
  30. ENDIF
  31. IF $AFCDCHK EQ 2
  32.  SETENV AFCDCHK=DF1:
  33. ENDIF
  34. BLACK
  35. ECHO "*n Ich entpacke jetzt das DMS-Archiv auf eine Diskette, die sich im Laufwerk ...."
  36. ECHO " -> " $AFCDCHK " <- befinden muß !"
  37. ECHO "Bitte die linke Maustaste drücken, wenn es losgehen kann !"
  38. CURSOR OFF
  39. LMB
  40. ECHO "Entpacke DMS-Archiv, - bitte warten ...."
  41. DMS WRITE DMSSOURCE:Sword01.DMS TO $AFCDCHK
  42. BLACK
  43. ECHO "*n Das DMS-Archiv wurde auf die Diskette in Laufwerk ...."
  44. ECHO " -> " $AFCDCHK " <- entpackt. - Fenster wird geschlossen ...."
  45. WAIT 4
  46. ECHO " Tschüß ...."
  47. SKIP ENDE
  48.  
  49. LAB ABBRUCH
  50. BLACK
  51. ECHO "*n Der Entpackvorgang wurde manuell abgebrochen !"
  52. ECHO " Es wurden KEINE Daten auf einen Datenträger entpackt."
  53. ECHO " Das Fenster wird geschlossen ...."
  54. CURSOR OFF
  55. WAIT 8
  56. ECHO " Tschüß ...."
  57.  
  58. LAB ENDE
  59. ASSIGN DMSSOURCE: "" REMOVE
  60. ASSIGN C: AmigaFuture©20:C REMOVE
  61. DELETE ENV:AFCDCHK >NIL:
  62.  
  63.